home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8506c.d64 / alle neune (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  5KB  |  175 lines
  1. 100 REM *********************************
  2. 110 REM
  3. 120 REM  J A H R E S A U S W E R T U N G
  4. 130 REM
  5. 140 REM   (C)JUERGEN SCHAEFER , 1984
  6. 150 REM
  7. 160 REM   8000  M U E N C H E N  70
  8. 170 REM
  9. 180 REM        TEL.089-7601642
  10. 190 REM
  11. 200 REM ********************************
  12. 210 PRINT"[147]"
  13. 220 POKE 53281,0:POKE 53280,0:POKE 646,1
  14. 225 REM---------------EINGABE ROUTINE----------------
  15. 230 N=7:M=3
  16. 240 PRINT"ANZAHL DER ANWESENHEITSTAGE IN 1984":PRINT
  17. 250 INPUT A
  18. 260 IF A>M THEN PRINT"[147]":GOTO240
  19. 270 PRINT:PRINT"GEBEN SIE DEN NAMEN DES KEGLERS EIN !":PRINT :INPUT K$
  20. 280 PRINT"[147]"
  21. 290 PRINT"GEBEN SIE DIE EINZELWERTE DER SPALTEN":PRINT
  22. 300 PRINT"IN FOLGENDER REIHENFOLGE EIN :"
  23. 310 FOR T=1TO2000
  24. 320 NEXT T
  25. 330 GOSUB1160
  26. 340 DIM U(M+1,N+1)
  27. 350 FOR I=1 TOM
  28. 360 GOSUB1160
  29. 370 READ D$
  30. 380 PRINT
  31. 390 PRINTD$
  32. 400 PRINT"========":PRINT
  33. 410 FOR J=1 TO N
  34. 430 PRINT J;".SPALTE ";
  35. 440 INPUT U(I,J):U$=STR$(U(I,J))
  36. 442 IF LEN(U$)>4 THEN 445
  37. 444 GOTO450
  38. 445 PRINT: PRINT"BITTE NUR ZAHLEN BIS MAX. 999 EINGEBEN !"
  39. 446 PRINT"EINGABEWIEDERHOLUNG":PRINT :GOTO440
  40. 450 NEXT J
  41. 460 NEXT I
  42. 470 RESTORE
  43. 475 REM---------------HARDCOPY AUSDRUCK--------------
  44. 480 PRINT:INPUT"IST DER DRUCKER EINGESCHALTET (J)";P$
  45. 490 IF P$<>"J" THEN 480
  46. 500 PRINT:PRINT"ES WIRD AUSGEDRUCKT"
  47. 520 GOSUB 1350
  48. 530 GOSUB 1040
  49. 540 OPEN4,4
  50. 550 REM---------------TABELLE ERZEUGEN---------------
  51. 560 FOR I=1 TO M
  52. 570 READ D$
  53. 580 PRINT#4,D$;"  ";
  54. 590 FOR J=1 TO N
  55. 600 X=U(I,J)
  56. 610 IF X>99 THEN PRINT#4,X;:GOTO 640
  57. 620 IF X <100 AND X>=9  THEN PRINT#4,X;:GOTO650
  58. 630 IF X <10 THEN PRINT#4,X;:GOTO660
  59. 640 PRINT#4,   "     ";:GOTO 670
  60. 650 PRINT#4,   "      ";:GOTO 670
  61. 660 PRINT#4,   "       ";:GOTO 670
  62. 670 NEXTJ
  63. 680 PRINT#4
  64. 690 NEXT I
  65. 700 PRINT#4,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  66. 710 PRINT#4,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  67. 720 REM---------------SUMME PRO SPALTE BILDEN--------
  68. 730 PRINT#4,"SUMME:   ";
  69. 740 FOR J=1 TO N
  70. 750 S=0
  71. 760 FOR I=1 TO M
  72. 770 S=S+U(I,J)
  73. 780 NEXT I
  74. 790 IF J=1 THEN V=INT(S/A+.5)
  75. 800 IF J=2 THEN B=INT(S/A+.5)
  76. 810 PRINT#4,S;
  77. 830 IF S>99 AND S<999 THEN GOTO 890
  78. 840 IF S<100 AND S>9 THEN GOTO 920
  79. 850 GOTO 950
  80. 890 PRINT#4,"     ";
  81. 900 NEXT J
  82. 910 GOTO 970
  83. 920 PRINT#4,"      ";
  84. 930 NEXT J
  85. 940 GOTO 970
  86. 950 PRINT#4,"       ";
  87. 960 NEXT J
  88. 970 U(M+1,J)=S
  89. 980 PRINT#4
  90. 990 PRINT#4:PRINT#4,"JAHRES-DURCHSCHNITT BEI 10X IN DIE VOLLEN :";CHR$(14);V;
  91. 1000 PRINT#4:PRINT#4,"JAHRES-DURSCHNITT BEIM BILDER-KEGELN      :";CHR$(14);B
  92. 1010 CLOSE 4
  93. 1020 GOSUB 1620
  94. 1030 END
  95. 1040 REM--------------TABELLENKOPF-------------------
  96. 1050 OPEN4,4
  97. 1060 PRINT#4,"KEGEL- ";" ";
  98. 1070 PRINT#4,"10 SCHUB ";" ";" SUMME "; "   ";" PUDEL";
  99. 1080 PRINT#4,"    ";"STIERE";"     ";"ALLE ";"    ";"KRANZ";"    ";"SCHNAPS"
  100. 1090 PRINT#4,"ABEND  ";" ";
  101. 1100 PRINT#4,"I.D.VOLL.";" ";" BILDER ";"  ";"(RATTEN)";
  102. 1110 PRINT#4,"  ";"    ";"       ";"NEUN ";"    ";"     ";"    ";"RUNDEN:"
  103. 1120 PRINT#4,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  104. 1130 PRINT#4,"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  105. 1140 CLOSE 4
  106. 1150 RETURN
  107. 1160 REM--------------TON----------------------------
  108. 1170 PRINT
  109. 1180 POKE 54273,23:POKE 54272,181
  110. 1190 POKE 54296,15
  111. 1200 POKE 54277,9
  112. 1210 POKE 54278,0
  113. 1220 POKE 54276,33
  114. 1230 FOR T=1 TO  500:NEXT T
  115. 1240 POKE 54276,32
  116. 1250 POKE 54273,0
  117. 1260 PRINT"[147]"
  118. 1265 PRINT"SPALTENBELEGUNG:"
  119. 1266 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  120. 1270 PRINT"1. 10 SCHUB IN DIE VOLLEN"
  121. 1280 PRINT"2. SUMME BILDERKEGELN "
  122. 1290 PRINT"3. PUDEL (RATTEN)"
  123. 1300 PRINT"4. STIERE(STRASSE)"
  124. 1310 PRINT"5. ALLE NEUN"
  125. 1320 PRINT"6. KRANZ"
  126. 1330 PRINT"7. SCHNAPSRUNDEN":PRINT:PRINT
  127. 1340 RETURN
  128. 1350 REM--------------FORMULARKOPF-------------------
  129. 1360 OPEN4,4
  130. 1370 PRINT#4,"****************************************";
  131. 1380 PRINT#4,"****************************************" :PRINT#4:PRINT#4
  132. 1390 PRINT#4,CHR$(16)" 2";CHR$(14) CHR$(14)"JAHRESAUSWERTUNG FUER 1984  ";
  133. 1400 PRINT#4:PRINT#4
  134. 1410 PRINT#4,"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
  135. 1420 PRINT#4,"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  136. 1430 PRINT#4,"KEGELCLUB ALLE NEUN ";
  137. 1440 PRINT#4,CHR$(16)"62";"17.DEZEMBER 1984"
  138. 1450 PRINT#4
  139. 1460 PRINT#4,"DIE FOLGENDE TABELLE ZEIGT DIE PERSOENLICHEN LEISTUNGEN UNSERES ";
  140. 1470 PRINT#4,"KEGELBRUDERS :"
  141. 1480 PRINT#4
  142. 1490 PRINT#4:PRINT#4,CHR$(16)"25" CHR$(14);K$
  143. 1500 PRINT#4
  144. 1510 PRINT#4:PRINT#4,"WAEHREND DES ABGELAUFENEN JAHRES 1984."
  145. 1520 PRINT#4,"IN DIESEM JAHR HATTEN WIR INSGESAMT 24 KEGELABENDE.";
  146. 1530 PRINT#4,"SIE HABEN";A;"MAL TEILGENOMMEN"
  147. 1540 PRINT#4,"UND ERREICHTEN DAMIT ";INT(A/24 *100);" %  DER MAX. MOEGLICHEN ";
  148. 1550 PRINT#4,"ANWESENHEITSZEIT !"
  149. 1560 PRINT#4
  150. 1570 PRINT#4,"I H R E  P E R S O E N L I C H E N  E R G E B N I S S E  :"
  151. 1580 PRINT#4,"=========================================================="
  152. 1590 PRINT#4 :PRINT#4
  153. 1600 CLOSE4
  154. 1610 RETURN
  155. 1620 REM--------------SCHLUSSFORMEL------------------
  156. 1630 OPEN4,4
  157. 1640 PRINT#4:PRINT#4,"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
  158. 1650 PRINT#4,"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  159. 1660 PRINT#4:PRINT#4,"IM NAMEN DER GANZEN KEGELGRUPPE WUENSCHEN DER COMPUTER ";
  160. 1670 PRINT#4,"UND DER VORSTAND IHNEN, "
  161. 1680 PRINT#4
  162. 1690 PRINT#4,"LIEBER HERR ";K$;",";
  163. 1700 PRINT#4,CHR$(14)"   GUT HOLZ FUER 1985 !"
  164. 1710 PRINT#4
  165. 1730 PRINT#4
  166. 1740 PRINT#4,"****************************************";
  167. 1750 PRINT#4,"****************************************" :PRINT#4:PRINT#4
  168. 1760 CLOSE 4
  169. 1765 REM--------------DATEN DER KEGELABENDE----------
  170. 1770 DATA " 2.JAN.","16.JAN.","30.JAN.","13.FEB.","27.FEB."
  171. 1780 DATA "12.MAR.","26.MAR."," 9.APR."," 7.MAI ","21.MAI "
  172. 1790 DATA " 4.JUN.","18.JUN."," 2.JUL.","16.JUL.","30.JUL."
  173. 1800 DATA "13.AUG.","27.AUG.","10.SEP.","24.SEP."," 8.OKT."
  174. 1810 DATA "22.OKT."," 5.NOV.","19.NOV."," 3.DEZ."
  175.